home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Themes / Amiga / AOD.theme < prev    next >
Encoding:
Text File  |  1998-10-27  |  3.5 KB  |  78 lines
  1. /* D5THEME
  2.  
  3.    AOD.theme
  4.  
  5.    Directory Opus Magellan II Theme File
  6. */
  7.  
  8. parse arg dopus_port apply_flags
  9. if dopus_port='' then
  10.         dopus_port='DOPUS.1'
  11. address value dopus_port
  12.  
  13. if apply_flags='' then
  14.         apply_flags='PFBS'
  15. else
  16.         apply_flags=upper(apply_flags)
  17.  
  18. options results
  19. options failat 21
  20.  
  21. /* Set background pictures */
  22. if index( apply_flags , "B") ~= 0 then do
  23.         dopus  set  background on
  24.         dopus clear background desktop
  25.         dopus  set  background "'DOplus:Themes/Amiga/AOD/Screens/AOD?.iff'" desktop precision image border off
  26.         dopus  set  background "'DOplus:Themes/Amiga/AOD/Screens/Granite.iff'" lister tile precision image border off
  27.         dopus  set  background "'DOplus:Themes/Amiga/AOD/Screens/VienedMarble.iff'" req tile precision exact border off
  28. end
  29.  
  30. /* Set sound events */
  31. if index( apply_flags , "S") ~= 0 then do
  32.         dopus  set  sound "'Bad disk inserted'" "'DOplus:Themes/Amiga/AOD/Sounds/AOD_DontTouchThat.8svx'" 64
  33.         dopus  set  sound "'Close buttons'" "'DOplus:Themes/Amiga/AOD/Sounds/AOD_Misc6.8svx'" 64
  34.         dopus  set  sound "'Close group'" "'DOplus:Themes/Amiga/AOD/Sounds/AOD_Misc4.8svx'" 64
  35.         dopus  set  sound "'Close lister'" "'DOplus:Themes/Amiga/AOD/Sounds/AOD_Misc5.8svx'" 64
  36.         dopus  set  sound "'Disk inserted'" "'DOplus:Themes/Amiga/AOD/Sounds/AOD_LetsGo.8svx'" 64
  37.         dopus  set  sound "'Disk removed'" "'DOplus:Themes/Amiga/AOD/Sounds/AOD_DiskRemove.8svx'" 64
  38.         dopus  set  sound "'FTP close connection'" "'DOplus:Themes/Amiga/AOD/Sounds/AOD_Rude.8svx'" 64
  39.         dopus  set  sound "'FTP connect fail'" "'DOplus:Themes/Amiga/AOD/Sounds/AOD_HoldIt.8svx'" 64
  40.         dopus  set  sound "'FTP connect success'" "'DOplus:Themes/Amiga/AOD/Sounds/AOD_Groovy.8svx'" 64
  41.         dopus  set  sound "'FTP copy fail'" "'DOplus:Themes/Amiga/AOD/Sounds/AOD_Oooohh!.8svx'" 64
  42.         dopus  set  sound "'FTP error'" "'DOplus:Themes/Amiga/AOD/Sounds/AOD_Oooppss!.8svx'" 64
  43.         dopus  set  sound "'Hide'" "'DOplus:Themes/Amiga/AOD/Sounds/AOD_Hide.8svx'" 64
  44.         dopus  set  sound "'Open buttons'" "'DOplus:Themes/Amiga/AOD/Sounds/AOD_ListerOpen.8svx'" 64
  45.         dopus  set  sound "'Open group'" "'DOplus:Themes/Amiga/AOD/Sounds/AOD_Misc2.8svx'" 64
  46.         dopus  set  sound "'Open lister'" "'DOplus:Themes/Amiga/AOD/Sounds/AOD_Misc1.8svx'" 64
  47.         dopus  set  sound "'Reveal'" "'DOplus:Themes/Amiga/AOD/Sounds/AOD_Reveal.8svx'" 64
  48.         dopus  set  sound "'Shutdown'" "'DOplus:Themes/Amiga/AOD/Sounds/AOD_Shutdown.8svx'" 64
  49.         dopus  set  sound "'Startup'" "'DOplus:Themes/Amiga/AOD/Sounds/AOD_Startup.8svx'" 64
  50. end
  51.  
  52. /* Set fonts */
  53. if index( apply_flags , "F") ~= 0 then do
  54.         dopus set font screen "'XHelvetica.font'" 11
  55.         dopus set font listers "'XEN.font'" 8
  56.         dopus set font iconsd "'XEN.font'" 8
  57.         dopus set font iconsw "'RSansSerif.font'" 8
  58. end
  59.  
  60. /* Set colour settings*/
  61. if index( apply_flags , "P") ~= 0 then do
  62.         dopus set pens icons 8 1 3 1 12 2
  63.         dopus set pens files 1 0
  64.         dopus set pens dirs 10 0
  65.         dopus set pens selfiles 1 8
  66.         dopus set pens seldirs 1 9
  67.         dopus set pens devices 10 0
  68.         dopus set pens assigns 1 0
  69.         dopus set pens source 1 11
  70.         dopus set pens dest 1 12
  71.         dopus set pens gauge 11 13
  72.         dopus set pens user 5
  73.         dopus set palette 0x909090 0x000000 0xF0F0F0 0x606DA0 0x808080 0xA0A0A0 0xA09070 0xF0A090 0xB4E494 0xC8FC00 0x004C94 0xFCFCD4 0xD8D8D8 0x183454 0xE8E8E8 0x505050
  74. end
  75.  
  76. /* Refresh Opus */
  77. dopus refresh all
  78.